
/*

___________________________________________________________________________
Descriptive statistics include the following items

_________
Main text

Table 1: Descriptive statistics, individuals
	
Table 2: Descriptive statistics, new incorporated businesses

_________
Appendix

Table A1: Two most frequent industries of new incorporated businesses by individual and parental income
	
Figure A1: New entrepreneurs over the sample years
	
Figure A5: Industry composition of new incorporated businesses

*/









/*
________________________________________________________________________________
Main text
*/

/*
________________________________________________________________________________
Table 1: Descriptive statistics, individuals

Table 2: Descriptive statistics, new incorporated businesses
*/

* Both are copied from .dta files, see '04_tabs'









/*
________________________________________________________________________________
Appendix
*/

/*
________________________________________________________________________________
Table A1: Two most frequent industries of new incorporated businesses by individual and parental income
*/

* Copied from a .dta file, see '04_tabs'

/*
________________________________________________________________________________
Figure A1: New entrepreneurs over the sample years
*/

use "$output\02_descriptives\figA1", clear

tsset year
twoway scatter shr_ie year, mc(maroon) msymbol(sh) graphr(c(white)) scheme(s2mono) ytitle("Share of observations by year (%)", size(medium)) title("", size(medium) color(black) nobox) xtitle("", size(medium)) xtitle(, color(black)) text(4.3 2011.4 "{it:Starters in total:}", size(medsmall)) ysize(3.5) text(3.15 2011.3 "{it:IE=28,707}" "{it:UIE=61,876}" "{it:WE=569,044}", size(medsmall) just(left)) legend(ring(0) bplace(nwest)) name(figA1, replace)
addplot figA1: line shr_ie year, lc(maroon) lp(solid)
addplot figA1: scatter shr_uie year, mc(navy) msymbol(dh)
addplot figA1: line shr_uie year, lc(navy) lp(solid)
addplot figA1: scatter shr_we year, mc(gs6) msymbol(Oh)
addplot figA1: line shr_we year, lc(gs6) lp(solid) xlabel(1998(2)2014) ysc(range(0 12)) ylabel(0(2)12, angle(0)) legend(order(1 "Incorporated entrepreneurs (IE)" 3 "Unincorporated entrepreneurs (UIE)" 5 "Wage earners / pseudo-starters (WE)") region(style(none)) cols(1))

graph export "$figs\figA1.eps", as(eps) preview(off) replace

/*
________________________________________________________________________________
Figure A5: Industry composition of new incorporated businesses
*/

use "$output\02_descriptives\figA5", clear

replace code_ind=_n
rename code_ind ind

label define ind_lbl 1 "Forestry and logging (2)" 2 "Mining and quarrying (8)" 3 "Manufacture of food products (10)" 4 "Manufacture of textiles (13)" 5 "Manufacture of wood and wood products (16)" 6 "Printing and reproduction of recorded media (18)" 7 "Manufacture of chemicals and chemical product (20)" 8 "Manufacture of rubber and plastic products (22)" 9 "Manufacture of other non-metallic mineral products (23)" 10 "Manufacture of fabricated metal products (25)" 11 "Manufacture of computer, electronic and optical products (26)" 12 "Manufacture of electrical equipment (27)" 13 "Manufacture of machinery and equipment n.e.c. (28)" 14 "Manufacture of motor vehicles, trailers and semi-trailers (29)" 15 "Manufacture of other transport equipment (30)" 16 "Manufacture of furniture (31)" 17 "Other manufacturing (32)" 18 "Repair and installation of machinery and equipment (33)" 19 "Electricity, gas, steam and air conditioning supply (35)" 20 "Waste collection, treatment and disposal activities (38)" 21 "Construction of buildings (41)" 22 "Civil engineering (42)" 23 "Specialised construction activities (43)" 24 "Wholesale and retail trade and repair of motor vehicles (45)" 25 "Wholesale trade, except of motor vehicles (46)" 26 "Retail trade, except of motor vehicles (47)" 27 "Land transport and transport via pipelines (49)" 28 "Water transport (50)" 29 "Warehousing and support activities for transportation (52)" 30 "Accommodation (55)" 31 "Food and beverage service activities (56)" 32 "Publishing activities (58)" 33 "Movie and TV programme and music publishing activities (59)" 34 "Programming and broadcasting activities (60)" 35 "Telecommunications (61)" 36 "Computer programming, consultancy and related activities (62)" 37 "Information service activities (63)" 38 "Financial services, except insurance and pension funding (64)" 39 "Activities auxiliary to financial services and insurance activities (66)" 40 "Real estate activities (68)" 41 "Legal and accounting activities (69)" 42 "Activities of head offices; management consultancy activities (70)" 43 "Architectural and engineering activities (71)" 44 "Scientific research and development (72)" 45 "Advertising and market research (73)" 46 "Other professional, scientific and technical activities (74)" 47 "Veterinary activities (75)" 48 "Rental and leasing activities (77)" 49 "Employment activities (78)" 50 "Travel agency, tour operator and related activities (79)" 51 "Security and investigation activities (80)" 52 "Services to buildings and landscape activities (81)" 53 "Office administrative and support activities (82)" 54 "Education (85)" 55 "Human health activities (86)" 56 "Residential care activities (87)" 57 "Social work activities without accommodation (88)" 58 "Creative, arts and entertainment activities (90)" 59 "Sports activities and amusement and recreation activities (93)" 60 "Repair of computers and personal and household goods (95)" 61 "Other personal service activities (96)"
label values ind ind_lbl

twoway dropline shr ind, lc(gs2) lp(solid) yline(0, lstyle(foreground)) graphr(c(white)) scheme(s2mono) xlabel(1(1)61, valuelabel angle(45) labsize(vsmall) grid) ysize(2.4) ytitle("Share of new businesses (%)", size(medsmall)) ytitle(, color(black)) ysc(range(0 11)) ylabel(0(2)10, angle(0)) xtitle("", size(medium)) xtitle(, color(black)) name(figA5, replace)

graph export "$figs\figA5.eps", as(eps) preview(off) replace
